﻿Imports PadovadoAPI
Imports System.Data

Partial Class pd_ristorante_festa_donne_musica_locali_eventi_stasera_veneto_NewsLetter
    Inherits System.Web.UI.Page

    Protected Sub BtnIscrivi_Click(sender As Object, e As System.EventArgs) Handles BtnIscrivi.Click
        Dim msg As String = ParseMailAddress(TBMail.Text)
        If Not IsNothing(TBMail.Text) Then
            msg = Iscrivi()
       
        End If
        LblMessage.Text = msg
    End Sub

    Public Function ParseMailAddress(text As String) As String

        If text = "*@*.*" Then
            Return ""
        Else
            Return "Attenzione, verifica di aver inserito correttamente l'indirizzo E-mail"
        End If

    End Function

    Public Function Iscrivi() As String
        Dim sql As String = ""
        Dim dbo As New DBObject

        Try
            sql = "INSERT INTO IndirizziMail VALUES ('" & TBNome.Text & "', '" & TBMail.Text & "', 0)"
            If dbo.ExecuteNonQuery(sql, Nothing, CommandType.Text) > 0 Then
                Return "Iscrizione avvenuta correttamente!! Da oggi in poi inizierai a ricevere la nostra newsletter. Torna a trovarci quando vuoi!!"
            Else
                Return "Ooops... qualcosa è andato storto nella registrazione... Ti chiediamo di riprovare..."
            End If


        Catch e As Exception

        End Try

    End Function

    Protected Sub BtnTogli_Click(sender As Object, e As System.EventArgs) Handles BtnTogli.Click
        Dim dbo As New DBObject
        Dim sql As String = "UPDATE IndirizziMail SET " & _
                            " Deleted= '" & True & "'" & _
                           " WHERE ltrim(rtrim(Mail)) like ('" & TBMail.Text.Trim & "')"

        If dbo.ExecuteNonQuery(sql, Nothing, CommandType.Text) > 0 Then
            LblMessage.Text = "Cancellazione dalla newsletter avvenuta con successo"
        Else
            LblMessage.Text = "Ci scusiamo ma la cancellazione non è riuscita, ti chiediamo gentilmente di inviarci una mail a info@padovado.it con l'indirizzo mail da eliminare."
        End If
    End Sub
End Class
